home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / emulators / tap3zxs / source / cnvout.h next >
Text File  |  1978-11-24  |  2KB  |  76 lines
  1. /*   part of xxx3xxx (zxs3tap, tap3zxs so on)
  2. (C)1995 @BABOLO V.M 1.2 29.06.95
  3. My e-mail address is: babolo@relcom.net or babolo@kiae.su
  4. My web is: http://relcom.eu.net/zx/
  5. Help me to collect all ZX software
  6. */
  7.  
  8. /* MSDOS version created 8/7/95 B.Baylis@cs.ucl.ac.uk */
  9.  
  10. /* This file was unmodified when I created the MSDOS version */
  11.  
  12. #define pl1(f) fprintf(TF,f)
  13. #define pl2(f,g) fprintf(TF,f,g)
  14. #define pl3(f,g,h) fprintf(TF,f,g,h)
  15.  
  16. static void op(o,n)
  17.     unsigned o,n;
  18. {   register unsigned i;
  19.     for(i=n;i!=0;i--) fprintf(TF,"%1o",(o>>(i*3-3))&7);
  20. };
  21.  
  22. static void hp(o,n)
  23.     unsigned o,n;
  24. {   register unsigned i;
  25.     for(i=n;i!=0;i--) fprintf(TF,"%1X",(o>>(i*4-4))&017);
  26. };
  27.  
  28. static void dp(o,n)
  29.     unsigned o,n;
  30. {   register unsigned i, j, k;
  31.     for(i=n;i!=0;i--)
  32.     {   k=1; for(j=0;++j<i;k*=10); j=o/k; fprintf(TF,"%1u",j-(j/10)*10);
  33. };  };
  34.  
  35. static void bp(n)
  36.     unsigned n;
  37. {   register unsigned i;
  38.     for(i=n;i!=0;i--)fprintf(TF," ");
  39. };
  40.  
  41. static void p2e(p2)
  42.     long int p2;
  43. {   fprintf(TF," %5d",p2);
  44. };
  45.  
  46. static void p1e(p1)
  47.     int p1;
  48. {   p1&=0377; bp(1);
  49.     if(p1==0)fprintf(TF,"..");
  50.     else     hp(p1,2);
  51. };
  52.  
  53. static void p1h(p1)
  54.     int p1;
  55. {   p1&=0377; bp(1);
  56.     if      (p1==0)fprintf(TF,"B ");
  57.     else if (p1==1)fprintf(TF,"D$");
  58.     else if (p1==2)fprintf(TF,"D ");
  59.     else if (p1==3)fprintf(TF,"C ");
  60.     else           hp(p1,2);
  61. };
  62.  
  63. static void p1c(p1)
  64.     int p1;
  65. {   p1&=0377; bp(1);
  66.     if(p1==0377) fprintf(TF,"--");
  67.     else         hp(p1,2);
  68. };
  69.  
  70. static void pcc(c)
  71.     char c;
  72. {   if  (((c&0377)>=32)&&((c&0377)<127)) pl2("%c",c);
  73.     else pl1("?");
  74. };
  75.  
  76.